home *** CD-ROM | disk | FTP | other *** search
/ Developer CD Series 1997 July: Mac OS SDK / Dev.CD Jul 97 SDK1.toast / Development Kits (Disc 1) / Communications Toolbox / CommToolbox 1.1 / Interfaces / PInterfaces / FileTransferTools.p < prev    next >
Encoding:
Text File  |  1994-11-21  |  1.8 KB  |  99 lines  |  [TEXT/MPS ]
  1. {************************************************************
  2.     FileTransferTools.p
  3.     Pascal Interface to the Macintosh Libraries
  4.  
  5.         Copyright Apple Computer, Inc. 1988-1991
  6.         All rights reserved
  7. ************************************************************}
  8.  
  9.  
  10. {$IFC UNDEFINED UsingIncludes}
  11. {$SETC UsingIncludes := 0}
  12. {$ENDC}
  13.  
  14. {$IFC NOT UsingIncludes}
  15.     UNIT FileTransferTools;
  16.     INTERFACE
  17. {$ENDC}
  18.  
  19. {$IFC UNDEFINED UsingFileTransferTools}
  20. {$SETC UsingFileTransferTools := 1}
  21.  
  22. {$I+}
  23. {$SETC FileTransferToolsIncludes := UsingIncludes}
  24. {$SETC UsingIncludes := 1}
  25. {$IFC UNDEFINED UsingDialogs}
  26. {$I $$Shell(PInterfaces)Dialogs.p}
  27. {$ENDC}
  28. {$IFC UNDEFINED UsingFileTransfers}
  29. {$I $$Shell(PInterfaces)FileTransfers.p}
  30. {$ENDC}
  31. {$SETC UsingIncludes := FileTransferToolsIncludes}
  32.  
  33. CONST
  34.  
  35. { Control }
  36. ftInitMsg            =    0;
  37. ftDisposeMsg        =    1;
  38. ftSuspendMsg        =    2;
  39. ftResumeMsg            =    3;
  40. ftMenuMsg            =    4;
  41. ftEventMsg            =    5;
  42. ftActivateMsg        =    6;
  43. ftDeactivateMsg        =    7;
  44. ftGetErrorStringMsg    =    8;
  45.  
  46. ftAbortMsg            =    52;
  47.  
  48. ftStartMsg            =    100;
  49. ftExecMsg            =    102;
  50. ftSendMsg            =    103;
  51. ftReceiveMsg        =    104;
  52.  
  53. {Setup }
  54. ftSpreflightMsg        =    0;
  55. ftSsetupMsg            =    1;
  56. ftSitemMsg            =    2;
  57. ftSfilterMsg        =    3;
  58. ftScleanupMsg        =    4;
  59.  
  60. { validate }
  61. ftValidateMsg        =    0;
  62. ftDefaultMsg        =    1;
  63.  
  64. { scripting }
  65. ftMgetMsg            =    0;
  66. ftMsetMsg            =    1;
  67.  
  68. { localization }
  69. ftL2English            =    0;
  70. ftL2Intl            =    1;
  71.  
  72. { DEFs }
  73. fdefType            =    'fdef';
  74. fsetType            =    'fset';
  75. fvalType            =     'fval';
  76. flocType            =    'floc';
  77. fscrType            =    'fscr';
  78.  
  79. fbndType            =    'fbnd';
  80. fverType            =    'vers';
  81.     
  82. TYPE    
  83. FTSetupPtr        =    ^FTSetupStruct;
  84. FTSetupStruct    =    PACKED RECORD
  85.     theDialog: DialogPtr; { the dialog form the application }
  86.     count: INTEGER; { first appended item }
  87.     theConfig: Ptr; { the config record to setup }
  88.     procID: INTEGER; { procID of the tool }
  89.     END;
  90.  
  91.  
  92.     
  93. {$ENDC} { UsingFileTransferTools }
  94.  
  95. {$IFC NOT UsingIncludes}
  96.     END.
  97. {$ENDC}
  98.  
  99.